function s = fcn5(vl, r_fl, omega_fl)
%#codegen

if(vl>(omega_fl*r_fl) && vl~=0)
    s=(omega_fl*r_fl)/vl-1;
elseif(vl<(omega_fl*r_fl) && omega_fl~=0)
    s=1-vl/(r_fl *omega_fl);
else
    s=0;
end

if(s>1)
    s=1;
elseif(s<-1)
    s=-1;
end
end